home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / lparser3 / tree01.ls < prev    next >
Text File  |  1993-11-22  |  378b  |  18 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. # Elaboration of example d on page 56
  4. # with double the amount of branches
  5. #
  6. 10
  7. 30
  8. 20
  9. #
  10. FAL
  11. #
  12. A=F[&'(.7)!BL]>(137)[&'(.6)!BL]>(137)'(.9)!(.9)A
  13. B=F[-'(.7)!(.9)$CL]'(.9)!(.9)C
  14. C=F[+'(.7)!(.9)$BL]'(.9)!(.9)B
  15. #
  16. L=~cc{+(45)f(.5)-(45)f(1)-(45)f(.5)+(45)|+(45)f(.5)-(45)f(1)-(45)f(.5)}
  17. @
  18.